home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / netz / mailfilter / microdot / userfilter.mdmrexx < prev   
Text File  |  1994-06-29  |  2KB  |  90 lines
  1. /* Arexx-Script für MicroDot und MailFilter */
  2.  
  3. /*
  4. ** $VER: Userfilter.mdmrexx 1.8 (29.6.94)
  5. **
  6. ** Übernimmt den Absender der aktuellen Mail in den Userfilter,
  7. ** im Usernamen vorkommende Jokerzeichen werden durch Voranstellen
  8. ** eines Hochkommas ausgeschaltet. Nach erfolgreicher Übernahme
  9. ** in den Filter öffnet sich das Fenster und der gerade übernommene
  10. ** Username ist selektiert.
  11. **
  12. ** Userfilter.mdmrexx muß nach 'MicroDot/Rexx' kopiert werden
  13. */
  14.  
  15. /* Ergebnisse anfordern */
  16.  
  17. OPTIONS RESULTS
  18.  
  19.  
  20.  
  21. /* Name des Screens auslesen */
  22.  
  23. GETMDPUBSCREENNAME
  24. screenname = result
  25.  
  26.  
  27.  
  28. /* Absender auslesen */
  29.  
  30. GETCURRENTMAILHEADER ABS
  31.  
  32. IF rc ~= 0 THEN EXIT(10)
  33.  
  34. absender.pattern    = result
  35. absender.emppattern = ''
  36. absender.newsgroup  = ''
  37. absender.mailtype   = ''
  38. absender.action     = ''
  39.  
  40.  
  41.  
  42. /* Testen, ob MailFilter gestartet ist. Wenn nicht, dann jetzt starten */
  43.  
  44. IF ~SHOW(PORTS,'MAILFILTER') THEN DO
  45.    ADDRESS COMMAND
  46.    'run >NIL: <NIL: MAILFILTER:MailFilter'
  47.  
  48.    DO 3 WHILE ~SHOW(PORTS,'MAILFILTER')
  49.       'WaitForPort MAILFILTER'
  50.    END
  51.  
  52.    IF rc = 5 THEN DO
  53.       SAY 'Kann MailFilter nicht starten!'
  54.       EXIT(10)
  55.    END
  56. END
  57.  
  58.  
  59.  
  60. /* Aktuellen MicroDot-Screen einstellen */
  61.  
  62. ADDRESS MAILFILTER
  63.  
  64. GETATTR screen
  65.  
  66. IF result ~= screenname THEN DO
  67.    DEACTIVATE
  68.    SETATTR screen screenname
  69. END
  70.  
  71.  
  72.  
  73. /* Adresse in den Userfilter übernehmen und das */
  74. /* Fenster auf dem aktuellen MicroDot-Screen öffnen */
  75.  
  76. ADDITEM TO user STEM absender CONVERT POPUP
  77.  
  78.  
  79.  
  80. /* Prefs speichern */
  81.  
  82. IF rc = 0 THEN
  83.    SAVE
  84.  
  85.  
  86.  
  87. /* Beenden */
  88.  
  89. EXIT(0)
  90.